Skunkware 98/Skunkware 98.iso/src/net/bind-contrib.tar.gz/bind-contrib.tar/contrib/nutshell/ch11.ip_to_name.perl

Text File | 1996-10-25 | 250 b | 13 lines

#!/usr/bin/perl

require 'sys/socket.ph';

while(<>){
    if(/\b([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\b/){
      $addr = pack('C4', split(/\./, $1));
      ($name, $rest) = gethostbyaddr($addr, &AF_INET);
      if($name) {s/$1/$name/;}
    }
    print;
}